home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / m1_____3.p2s < prev    next >
Encoding:
Text File  |  1994-04-27  |  1.3 KB  |  66 lines
  1. @THREADS=1
  2. # thread 1 controls sequencer
  3. #
  4. @THREAD 1
  5. #
  6. # open default sequencer device exclusively (and loading datafile type1.mid)
  7. #
  8. open ?AP2PATH?type1.mid type sequencer00 alias midi1 notify
  9. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #11
  10. @WAIT_NOTIFY 11 30000
  11. acquire midi1
  12. @WAIT_PASSDEVICE midi1 180000
  13. @PAUSE 2000
  14. #
  15. # cue for play
  16. #
  17. cue midi1 output notify
  18. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CUE #12
  19. @WAIT_NOTIFY 12 30000
  20. #
  21. # play for a little while....
  22. #
  23. play midi1 notify
  24. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY #13
  25. @PAUSE 3000
  26. #
  27. # pause the play for 2 seconds
  28. #
  29. pause midi1 notify
  30. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #14
  31. @WAIT_NOTIFY 14 30000
  32. @PAUSE 2000
  33. #
  34. # resume for 5 seconds
  35. #
  36. resume midi1 notify
  37. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME #15
  38. @WAIT_NOTIFY 15 30000
  39. @PAUSE 5000
  40. #
  41. #
  42. stop midi1 notify
  43. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP #16
  44. @WAIT_NOTIFY 16 30000
  45. @WAIT_NOTIFY 13 30000
  46. #
  47. # seek back to start of media
  48. #
  49. seek midi1 to 0 notify
  50. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #17
  51. @WAIT_NOTIFY 17 30000
  52. #
  53. # play for 3 seconds (synchronous)
  54. #
  55. play midi1 notify
  56. +MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY #18
  57. @PAUSE 3000
  58. #
  59. # close sequencer device
  60. #
  61. close midi1 notify
  62. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #19
  63. @WAIT_NOTIFY 18 30000
  64. @WAIT_NOTIFY 19 30000
  65.  
  66.